home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh31.d64 / klang einfach (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  723b  |  31 lines
  1. 100 REM--------------------------------
  2. 110 REM EINFACHE KLANGEFFEKTE
  3. 120 REM--------------------------------
  4. 130 S=54272
  5. 140 READ A,D,SU,R,C,P,F,M,FF,FR,ML
  6. 150 POKE S+5 ,16*A +D
  7. 160 POKE S+6 ,16*SU+R
  8. 170 POKE S+2 ,P AND 255
  9. 180 POKE S+3 ,P/256
  10. 190 HI=INT(F/256):LO=F-256*HI
  11. 200 POKE S   ,LO
  12. 210 POKE S+1 ,HI
  13. 220 POKE S+22,FF
  14. 230 POKE S+23,FR
  15. 240 POKE S+24,ML
  16. 250 GET A$:IF A$="" THEN 250
  17. 260 : POKE S+4,C OR 1
  18. 270 : FOR I=1 TO M:NEXT I
  19. 280 : POKE S+4,C AND 254
  20. 290 GOTO 250
  21. 300 REM--------------------------------
  22. 310 REM PARAMETER
  23. 320 DATA 0 ,10, 0,10:REM A D S R
  24. 330 DATA 16         :REM CONTROL-BYTE
  25. 340 DATA 2048       :REM PULSWEITE
  26. 350 DATA 40000      :REM FREQUENZ
  27. 360 DATA 100        :REM VERZOEGERUNG
  28. 370 DATA 50         :REM FILTERFREQUENZ
  29. 380 DATA 0          :REM FILTERRESONANZ
  30. 390 DATA 15         :REM MODUS/LAUT
  31.